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IWII1I1111 BBBBBBBBBBBB RRRRRRRRRRRR AAAAAAAAA RRRRRRRRRRRR 
IIIIIIIII BBBBBBBBBBBB RRRRRRRRRRRR AAAAAAAAA RRRRRRRRRRRR 
III BBBBBBBBBBBB RRRRRRRRRRRR AAAAAAAAA RRRRRRRRRRRR 
II] BB RRR RRR AAA AAA RRR RRR 
LLL II] BBB BBB RRR RRR AAA AAA RRR RRR 
LLL Il] BBB BBB RRR RRR AAA AAA RRR RRR 
LLL II] BBB BBB RRR RRR AAA AAA RRR RRR 
LLL II] BBB BBB RRR RRR AAA RRR RRR 
LLL II] BBB BBB RRR RRR AAA AAA RRR RRR 
LLL II] BBBBBBBBBBBB RRRRRRRRRRRR AAA AAA RRRRRRRRRRRR 
LLL II] BBBBBBBBBBBB RRRRRRRRRRRR AAA AAA = RRRRRRRRRRRR 
LLL II] BBBBBBBBEBBB RRRRRRRRRRRR AAA AAA RRRRRRRRRRRR 
LLL IJ] BBB BBB RRR RRR AAAAAAAAAAAAAAA = RRR RRR 
LLL II] 888 BBB RRR RRR AAAAAAAAAAAAAAA RRR RRR 
LLL 1] BBB BBB RRR RRR AAAAAAAAAAAAAAA RRR RRR 
LLL II] BBB BBB RRR RRR ABA AAA RRR RRR 
LLL II] 888 BBB RRR RRR AAA AAA RRR RRR 
LLL II] BBB RRR RRR AAA AAA RRR RRR 
LELLLLLLELLLLLL III BBBBBBBBBBBB RRR RRR AAA AAA RRR RRR 
LLLLLLLLLLLLLLL ITIIIIII BBBBBBBBBBBB RRR RRR AAA AAA RRR RRR 
LELLLLLLLLLLLLL IWII1111 BBBBBBBBBBBB RRR RRR AAA AAA RRR RRR 
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Require file for the Library command utility 
Version: *v04-000' 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED eect A LICENSE oe MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH Lats» AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
Ss E PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
vuansrennee’” NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
componat itn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


‘e+ 
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; FACILITY: Library command utility 
i ABSTRACT: 


The VAX/VMS Library command utilizes the Librarian procedures 
to perform operations on Libraries. 


| ENVIRONMENT : 
VAX native, user mode. 


AUTHOR: Benn Schreiber 
CREATION DATE: June-1979 
i MODIFIED BY: 
v03-002 GJA0070 Greg Awdziewicz 6-Mar-1984 
Add symbols to allow text and sharable image Libraries 
to have key lengths as large as the new filenames (39). 


v03-001 JwT0103 Jim Teague 22-Mar-1983 
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Add two useful macros, ‘'sd’’ and ‘‘dynamic_descriptor’’. 
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’ 
Define VMS block structures 

| 


STRUCTURE 
BBLOCK (CO, P, S, E; NJ = 


| (BBLOCK + 0) <P, S, E>; | 
Useful macros 
MACRO 


sd Ca] = bind %name('sd_',a) = $descriptor(a)%, 
dynamic_descriptor = black Cdsc$c _S_bln, byte] preset ( Cdsc$w_length] = 
b_class] = ds ¢$k pone 4, 
fasc$b- “pointer) = 68 
Macro to generate a pointer to a counted string 
CSTRING (STRING) = UPLIT BYTE (ZCHARCOUNT (STRING), STRING)%, 
} Macro to describe a string 
STRINGDESC (STRING) = ZCHARCOUNT (STRING), UPLIT (ZASCII STRING)&, 
Macro to generate a quadword string descriptor 
DESCRIPTOR (STRING) = BBLOCK CDSCS$C_S_BLN] INITIAL (STRINGDESC (STRING))2, 
! Macro to generate a counted string 
COUNTEDSTRING(STRING) = VECTOR CXZCHARCOUNT (STRING)+1, BYTE] INITIAL (BYTE(XZCHARCOUNT(STRING) ,ZASCII STRING ))%, 
' Macro to execute a given sequence of commands and return if any error 
| 


perform (command, errorcode) = 
BEGIN 


LOCAL 
status; 
status = command; 
MAL NOT .status ' If error detected, 
MSIF ZLENGTH GTR 1 ! If errorcode ory is present 
ZTHEN SIGNAL (errorcode, ZREMAINING, .sta 
ZELSE RETURN .status; : Tite omg Fe at with error 
ENDZ, 


Macro to execute a command which may have and RMS error return 
involving both a status and STV value 


ron.por tere (command, errorcode, rms_stv) = 
EGIN 


| 
LOCAL 

status; | 
status = command; 


If NOT .status ! If error detected, 


K 
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code arg is present 
NG, .Status, rms_stv); ! then signal the error 
Otherwise just return with error 


THEN 
ZIF ZLENGTH GTR 1 ! If error 
ZTHEN SIGNAL (errorcode, ZXREMAINI 
ZELSE RETURN .status; ! 
ENDS; 


i SSHR_MESSAGES = a macro which defines facility-specific message codes 
: which are based on the system-wide shared message codes. 


SSHR_MESSAGES ( name, code, (msg,severity), ... ) 


“‘code"’ is the corroqpending facility code (e.g., 134) 
‘msg’ is the name of the shared message 50-8 BEGIN) 
severity’’ is the desired message severity either STS$K_severity 


or severity) 


a 
> 
o 
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ACRO 
ooun Se enaes ( FACILITY_NAME, FACILITY _CODE ) = 
SHRSMSG_IDS ( FACILITY_NAME, FACILITY_CODE, ZREMAINING ); %, 


SHRSMSG_IDS ( FACILITY NAME, FACILITY CODE) C VALU 


' 
| 
| 
e: 
*‘name’’ is the name of the fog tt lty Ce-8.. LIBRAR) 
| 
E j= 
FACTLITY_NAME, FACTLITY_CODE, %REMOVE (VALUE) ) %, 


SHRSMSG_CALC ( 
SHRSMSG CALC ( FACILITY NAME, FACILITY_CODE, MSG_ID, SEVERITY ) = 
ZNAME (FACILITY_NAME,'S = ENAE (*SHRS_*,MSG_ID) + 


ZDECCARED (ZNAME (‘STS$K_',SEVERITY)) 
XTHEN XNAME ('STSSK_*, SEVERITY) 
ZELSE SEVERITY FI 2; 

' 

: Librarian message codes from shared message definitions 


SSHR_MESSAGES (LIB, 134, 


(nowild, severe) 
(novalue, severe), 
(badkey, severe)); 


openin, warning), ' error opening . as input 
sepeneys. severe) ! error opening x" as output 
(closein, warning) : error closing ‘'x'' as input 
(closeout, warning), : error closing ‘'x'’ as output 
(readerr, error) ! error reading ‘‘x’ 
(writeerr, errors, ! error writing ‘‘x"' 
(parsefail, severe), error p 

i 

i 


no value 

Bad key value 
‘ 

} Macros to ease typing 


MACRO 


| 

arsing 

no wild card allowed | 
| 

| 

j 
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SHORT = UNSIGNED (6 

BYTLIT = UNSIGNED ( 

WORDLIT = UNSIGNED 
! Equated symbols 


LITERAL 
LIBSC_F ILENAME_LENGTH= 


SYMSC_MAXLNG = 31, 
TRUE = ' 
FALSE = 0; 


39, 
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Short attribute 
Unsigned byte attribute 
Unsigned word attribute 


Filename length used for text 

& sharble image Libraries. ; 
Max length of symbols in object/macro Libs 
Boolean TRUE 

Boolean FALSE 


"AH: BT13A-SE 
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